home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
EnigmA Amiga Run 1996 June
/
EnigmA AMIGA RUN 08 (1996)(G.R. Edizioni)(IT)[!][issue 1996-06][EARSAN CD VII].iso
/
earcd
/
utmisc1
/
fscode.lha
/
Rexx
/
Spot
/
FSWrite.spot
< prev
next >
Wrap
Text File
|
1995-03-11
|
511b
|
27 lines
/* FSWrite.spot written by Vincenzo Scarpa */
/* Install as 'FSWrite...' in the ARexx menu. */
address spot
options results
'isarealist'
if rc = 0 then do
'requestnotify "Use in message list or from message window!"'
exit
end
'requestfile TITLE "File to FSEncode"'
filename = result
if rc ~= 5 then do
address command
'FScode ' || '"' || filename || '"' || ' -e > T:CodeFile'
address spot 'write FILE T:CodeFile'
'Delete >NIL: T:CodeFile'
end
exit /* done here ... */